23B 

239 

237 

159 

12a 

160 
187 
161 
220 
113 

195 

193 

148 

191 

133 

266 

147 

203 

132 

250 

261 

171 

200 

259 

131 

208 

164 

103 

173 
206 
207 
224 
151 • 

104 - 

249 - 
112 - 
226 - 

137 - 

138 - 

139 

140 

141 

142 - 

143 - 
145 - 

144 - 
106 - 
210 - 
211 - 
212 - 
150 - 


SAM76 


- lar.soi 

- lOnI 

- I8t| 

- lab,sl,82,vt«vf I 

- Iad«nl,n2,n3,...,n| 

- jai«sO«8l«s2,...,8| 
‘ |and«xl,x2| 

> id8,sO,8l,s2,...«8| 

|bf.f,V2| 

|C4«S| 

\C8,8\ 

Icfc«dl,8| 

\cfc,dl«8\ 

|cin«tl,dl«...,t«d| 

Icld.tl 

lcll«d| 

\cll,d\ 

Icnbfdj 

\cnb,d\ 

|cpc,tl,dl,...,t,d| 

lcrd,t| 

|cro«sl| 

\cro,sl\ 

l ct, tl«t2,t3«...,tl 
\ct,tl,t2,t3,...,t\ 
|cac,8l| 

\cwc, \ 

|cws«d| 

\cws,x\ 

Icx,s0,8| 

lc«b,di 

\cxb,d\ 

Ida,s0| 

|di,nl,n2,vz| 

Idq,8| 

|dr,t,a,o,v| 

|ds,d«8| 

Idt«t.a«dl«d2| 

Vit,t,8,dl,dA 

|dx,d«xl 

l ea, tl,t2«...,t| 
Ied,t,dl,d2,vx| 

Ief,fl.f2 f| 

|ep,t«pl«p2,...,pl 
ler, ... I 
|et.tl,t2,...,tl 
\et,tl,t2,...,t\ 
|etb,8| 

lex^fl 

|fb,f,vt,v£| 

|fc,t,vz| 

|fdc,t«d,vz| 

|fde«t«d,vz| 

|fd8,t«d,8«vz| 

Ue,t«vz| 

|ff,t,d,vz| 

ifl,t,8,Vlj 

|fp,t,xl,...«x| 

|fr,t«8,vz| 

I f £«£«8l «s2« . . . f b| 
Iftb,t,8,vz| 

|ft8,t«8,VZ| 

Ibc.sl 

|hM,t,s| 


wh8 are Functiona 

wh8 l8 processor ser. Nuaber 

wh8 is processor Title 

Alphabetic Branch 

Add 

Alphabetic Insertion 
And the bits 
Alphabetic Sort 
Bring file 

Change Activator (current) 
Oiange Activator (initial) 
Change Fill Character scheou 
Change Pill Char, (initial) 
Change Id Nusber 
Characters Left of Divider 
Change Line Length (active) 
Change Line Length (initial) 
Change Ninber Base (active) 
Change Nusber Base (initial) 
Change Protection Class 
Characters Right of Divider 
Change Rub Out char, schesa 
Change Rub Out (initial) 
Coebine Texts (superseding) 
CoMbine Texts (save current) 
Change Warning Character 
Change Warn. Char, (initial) 
Change Woric Space 
•> 

Character to "X" 

Change "X” Base (active) 

Change ”X* Base (initial) 

Date 

Divide 

Define Quote 

Define Relationship 

Duplicate String 

Define Text (superseding) 

Define Text (save current) 

Decistfl to "X” 

Erase All excepting 
Extract ”D* characters 
Erase Piles 
Erase Partitions 
Express Relationship 
Erase Text 

Erase all occurences of Text 
Erase Trailing Blanks 
Exit 

Pile Branch 
Fetch Character 
Fetch "D* Characters 
Fetch ”D" Elements 
Fetch "D” Hatches 
Fetch Element 
Fetch Field 
Fetch Left Mtch 
Fetch Partition 
Fetch Right smtch 
Fetch Text 

Fetch To Break character 
Fetch To Span character 
Hou many Characters 
How many Hatches 


language reference 


149 - |hp,t«d| How many Partitions : 

114 - lht,t| Hide Text i 



\ht\ 

Hide all Texts 

i 

115 - 

lid 

Ir^t Character 

i 

116 - 

lid.dl 

Input "D** characters 

t 

153 - 

lidt^dl 

Input "D** Texts 

i 

136 - 

|ig,dl,d2,vt,vf 1 

If Greater 

i 

135 - 

I ii,8l,s2,vt,vf I 

If Identical 

X 

117 - 

|im«6l«82«...,s| 

Input to Hatch 

1 

102 - 

|is,dev| 

Input String 

i 

152 - 

liti 

Input Text 

i 

213 - 

1 iw,n| 

Input Wait 

i 

- 

jlef ,dev| 

Lo^ External Function 

t 

216 - 

llf,s0,dl,...,d| 

List Files 

i 

- 

Ur, ... 1 

List Relationship 

1 

105 - 

Ilt,s0,dl,d2,...,d| 

List Texts 

1 

214 - 

Ilw,s0,8l,s2,. ..,8| 

List Where 

1 

no - 

lsc,d| 

Hulti -partition Character 

< 

146 - 

lmd,t,d| 

Hove Divider to pos. "d” 

i 


\Rrf.t.d\ 

Hove Divider "d" increments 

3 

109 - 

1 mt , t , si , s2 , . . . , 6 1 

Hulti-part Text all matches 

t 


^Rlt , t , si , s2 , . . . , s\ 

Hulti-part Text next match 

1 

130 - 

|mu,nl,n2,vz| 

Hultiply 

t 

111 - 

|ni,vt,vf 1 

Neutral Ixplied 

1 

188 - 

|not,x| 

Not (cosplement) the bits 

1 

209 - 

1 nu ,sl,s2,. .. ,s| 

Null 

3 

246 - 

|oj,8,sl,d,s2| 

Output Justified lines 

3 

248 - 

|op,8,sl,d,s2| 

Output Paddded lines 

3 

186 - 

lor ,xl,x2| 

Or the bits 

3 

101 - 

|os,s| 

Output String 

3 

154 - 

|ot,tl,t2,...,t| 

(Xitput Texts 

3 

108 - 

lpc,d| 

Partition Character 

3 

174 - 

Ipl,sl,s2,...,s| 

Plot 

3 

162 - 

Ipa,d,8l,s2| 

Pad String 

3 

107 - 

Ipt , t ,sl ,s2 , . . . , 6 1 

Partition Text all matches 

3 


\pt,t,sl,s2,...,s\ 

Partition Text next match 

3 

196 - 

Iqfc,s0| 

Query Fill Character schema 

3 

194 - 

Iqin,s0,tl,t2,...,t| 

Query Id Nunber 

3 

197 - 

lqld,t| 

Query Left of Divider 

3 

192 - 

Iqlll 

Query Line Length 

3 

134 - 
202 - 

1^1 

Query Nunnber Base 
* Query Over Plow conditions 

3 

3 

167 - 

lqp,t| 

Query Partition 

3 

267 - 

Iqpc,s0,tl,t2,...,t| 

Query Protection Class 

3 

198 - 

lqrd,t| 

Query Right of Divider 

3 

204 - 

Iqrol 

Query Rub Out char, schema 

3 

205 - 

Iqtal 

Query Text Area used 

3 

251 - 

|€]^,a2,al,...,a| 

Query Warning Characters 

3 

262 - 

IqwsI 

Query Work Space 

3 


\qK8\ 


3 

201 - 

Iqsbl 

Query “X** Base 

3 

215 - 

Ira,d,sl,s2,s3, . .. ,s| 

1 Return Argument 

3 

263 - 

|rcp,dl,d2,s| 

Return Character Picture 

3 

166 - 

Iril 

Restart Initialized 

3 

245 - 

Irj,8,8l,d,s2| 

Return Justified lines 

3 

252 - 

|rn,n| 

Random Number 

3 

189 - 

lrot,d,x| 

Rotate the bits 

3 

247 - 

Irp,8,sl,d,s2| 

Return Padded lines 

3 

165 - 

|rr,sl| 

Return to Restart 

3 

163 - 

lrs,s| 

1 Reverse String 

3 

228 - 

|saf,dev| 

'select All File function dev. 

>3 

158 - 

Isar 1 

j**Auto Return" on line feed 

3 


\sar\ 

no Auto Return on line feed 

3 

260 - 

|sda,da,mo,yr| 

Set Date 

3 


199 - 

|sem,dev| 

Set "Echoplex" Hode active 


^em,dev\ 

"Echoplex" node inactive 

222 - 

Isf,f,tl,t2,...,t| 

Store Pile 

157 - 

|sfd,fun,dev| 

Specify Function Device 

19U - 

|sh,d,x| 

Shift the bits 

253 - 

|srn,n| 

Seed Random Number 

258 - 

Isti,tl,t2,t3| 

Set Tiim 

129 - 

Itj,nl,n2,...,n| 

Subtract 

231 - 

Isw,al,s2,s3,... ,s| 

Switches 

232 - 

1 sy , si , s2 , • . . , 8 1 

System functions 

127 - 

|tb,t,vt,vf 1 

Text Branch 

257 - 

Iti,8l,s2| 

Time ^ 

125 - 

ltm,d| 

Trace Hode activated 


\tm\ 

Trace Hode deactivated 

124 - 

Itmal 

Trace Hode All activated 


\tma\ 

Trace Hode All deactivated 

168 - 

|tr,t,s| 

Trim 

218 - 

|uf , f , tl , t2 , . . . , t 1 

Update File 

169 - 

|ut,cc| 

User Trap active 


\ut\ 

User Trap inactive 

118 - 

Ivt,tl,t2,...,t| 

View Texts 

181 - 

|wc,8l,s| 

Write Cliaracters 

175 - 

|wi,xnl,ynl| 

Write Initialise 

179 - 

Iwll 

Width Left » 

178 - 

IwrI 

Width Right 

180 - 

|ws,xnl,ynl,...,xn,yn|Write Straight Lines 

176 - 

Iwxl 

Write "X" displacement 

177 - 

iwyl 

Write "Y" displacement 

170 - 

|xc,xl,x2,...wxl 

"X" to Character 

271 - 

|xcf,8,x| 

experimental Change Function 

172 - 

lxd,x) 

"X* to Decimal 

255 - 

jxi.porti, 

experimental Input 

123 - 

Uj,x| 

experimental Jimp 

256 - 

lxo,x,port| 

experimental Output 

270 - 

Ixqf,s| 

experimental Query Function 

119 - 

|xr,x| 

examine Register 

121 - 

lxrp,xl 

examine Register Pair 

120 - 

Ixw,xl,x2| 

experimental Write in rcg. 

122 - 

|xwp,xl,x2| 

experimental Write rcq. Pair 

126 - 

|yt,t,8,vt,vf| 

Ys There 

182 - 

Izd,r,v-,v0,v4| 

"X" reg. Decrement and branch 

183 - 

jzi,r,v-,v0,v'*^| 

"X” reg. Increment and branch 

184 - 

|zq,r| 

"X" reg. Query 

185 - 

|z8,r,n| 

"X" reg. Set 

Expression formats, legend, 

r syntax and conventions! 

1 f unction, arguments, 1 

Active Expression 

\funct ion, arguments, . . , .\ 

Neutral Expression 

x,xl,. 

, . "x" base numbers 

- f file name 

d,dl,. 

Decimal nuobers 

- t text name 

n,nl, . 

"n" base nusbers 

- vs default value 

sO 

prefixing string 

- v-,vt,v0 conditional value 

8, si,, 

.. character strings 

- vt,vf true/false value 


Protection syntax - I..../ (....) <....> Pchar. 

Active syntax - S: %fn, arguments/ - Hj |fn« arguments t 

Neutral syntax - Si 6 fn, arguments/ - Hi |fn«argumentsi 

%vt,t/- partition |d), multi-partition (ld|« divider D 
<8oe-xxx> special condition encountered 
<nav-xxx> xxx not available 


ilos.lis// is the Restart bxpression which is oriqinally 
loaded. It means: “output that string which results frum the 
evaluation or executicxi of the string to be input". Thus: 

1. Input a String 2. Evaluate said string 
3. Output the result of the evaluation 

In the examples that follow, the "os" of the Restart 
Expression will not be shown, but its presence is implied. 
P6r clarity in these exanples output will be shown between a 
pair of curly braces thus: ( ... ). 

ABCDEfX]H= (ABCOEttJil) 

Ihe "os" of the hestart Expression causes to be output that 
string which was entered through execution of the "is" 
(Input String) of the Restart Expression. The equal sign 
is the Activator, signalling the end of the input string. 

los,APRLE/-(APPLE| 

The function "os" (output string) in the expression causes 
the output of the second argument of the expression; the 
comma is sensed as a delimiter between arguments and only 
the second argument will be output by the "os" furx:tion. 

lies , APPLE < , X)RANGE/« (APPLE , ORANGE ) 
tios , <APPLE ,ORAigGE>/» ( APPLE ,OKANG£ j 
los , APPLE# ,ORANC;£/«( APPLE, ORANGEl 

Here the comma is protected, hence it does not act as a 
delimiter, and is entered as part of the input strirtg. As 
part of the string it is output by the "os” function. Note 
that the protective symbol pair (in this case <...>) may be 
anywhere as long as the coenna is enfolded. Other protective 
syxiMl pairs that may be used are (...) and 1.../; in 
edition any single character immediately preceded by a "#" 
sign is also protected as shown on the third line example. 

«dt , A , APPLES# , ORANGES/- 

Define a Text named A with contents APPLES, ORANGES and store 
it in a section of memory named the "Text Area". 

%os , %f t ,A//- ( APPLES I 
%os,iA//*{APPLES) 

%os , 4 f t , A//* I APPLES ,ORANGES J 
los,4A//-( APPLES I 

Fetch from the Text Area "A" and output its contents. If the 

name of the text is not the same as that of any of the 

functions of the language, the fetch may be made as shown on 
the second line of the example; this is said to be an 
"implied fetch". Should the text contain symbols which 
should normally have been protected, or if it is desired not 
to evaluate the text to be fetched, then the format of the 

third line should be used; this is said to be a "neutral 

explicit fetch". The fourth line shows a "neutral implied 
fetch"; this behaves in a manner that is identical to the 
first two lines of the exaiiple, but information is retained 
in the computer that it was a "neutral implied" fetch. 

%A/« I APPLES) 

4 ft , A/- i APPLES , ORANGES ) 

Fetch the text named A, both actively and explicitly 
neutrally. CXjtput is effected by the "os" function of the 
Restart Expression as indicated in the following sequence: 

1. los,lis// 2. %os,%A// 3. %os,APPIES, ORANGES/ 4. APPUS 


4dt,A,11IE DOG AfJD THE CAT 


AND WE fJOKSE/* 


As a part of definimj V this text liamed A, the previously 
tlefined text also naiiHid A [is eiased from the Text Aiea, and 
the new text A, containincj Uie new text string is createxi. 

%dt , D , W/%ct ,C , A//= 

4os,%A//=(’WE DOG AND WE 
%os,%U//-jwC DOG AND 'WE 
%os,%C//«(WE DOG AND WE 

Define a text named 0 as t^ value resulting from fetch iiKj A 
and create C by cxDpying A using the "ct" copy text function. 

%pt ,D , WE , DOG , AND,CAT ,HORs|e/- 


AT AND *1UE HORSE) 
AT AND WE IIOICJE) 
AT A))D WE HORSE) 


Partition the text named dI on the ctiaractcr patterns, '"WE", 
"DOG", "AND", "CAT", "HCjRSE", creating partitions at those 
locations in Text B w>here each pattern appears. The 
partitions where the firsti pattern occurred ace given a 
value of |1), tlie partitions wliere the second pattern 
occurred are given value (E) , etc. 


ivt,B/«(|l) 12) (3) ID 14 (3) (1) (5)) 

"vt" (View Text) will show the numerical value and location 
of the partitions in a Text. Note that the unpartitioned 
patterns (the spaces betweWi the words) remain intact. 

iB , LE ,DI I EN , ET ,CHAT ,aiEVAL/ 

-(LE ailEN ET LE QIAT ET LC QIEVAL) 

We partitions with valued 1, 2, 3 etc., are plug^jed by the 
second, third, fourtli etc. Arguments of the fetch of Text B, 
and the pluggcxl string re .iiHing is then output by the 
Restart Expression. A line cxx)e was input before the 

Activator. Wis is why the output is on the second line. 

%vt,B/-(|l| |2J (3) ID 14' |3J ID 1^)1 


Note that Text B still has the partitions. 


%dt , B , %B , LE ,CH I tN , ET ,CHAT ,CHEVAL//= 
iB/==|li: ailEN ET LE aiAT LE QIEVALl 
IA/-IWE DOG AND WE CAT AND WE HORSE) 
%lt,V-(*A*C*B) 

%lt. 1 

/=! I 

A 

C 


Wis will redefine B, plu<^ing t)ie partitions as indicated; 
note that any unplugged parltitions at this point would be 
plugged with "null" stringsj. The text B, had been defined as 
t)»e saae as text A. Wen it was partitioned on the English 
words in it and was then redefined with the corresponding 
French words replacing the jEnglish ones. 


The ruxiies of tl»e Texts ^ in the Text Area are determined 
through use of the "It" (List Texts) function. Each text 
naiTx? is RRECFX)ED by whatever delimiting character pattern 
the user specifies as the second argument of the expression. 
One exaii^le uses an asterisk, and the other example has a 
new line code as the second argument of the expression. 


iJt,A,lios,WlS IS A PIOCEOURE///- 
UA/^iWIS IS A PROCEDOltL) 

4ft,A/=|%os,THlS IS A PRCXIIDURE/) 

A procedure is a text consisting of one or more expressions 
executed by fetchirtg said text "actively". An explicit 
neutral fetch serves only to fetch it without its being 
executed, llie protective pair 1.../ serves to prevent 
execution during the process of definition. Partitions, if 
any ntay be plugged during the fetching process at tlic time 
ol execution. Other exanples of procedures follow. 

4dt , SQUARE , I %mu, • , *///- 
4pt, SQUARE, V* 
ltvt,SOUARE/=Umu, ID . Il)/) 

»souare,V=IBD 

4SQUARE,12/-|144) 

Udt,HOlOy,l\ios, 

V4IAT IS yOUR NAME?- /lOS, 

WELL HELIX) WERE iis////- 
4IICJWDY/* 

IMIAT IS YOUR NAME?- )B1LL- 
(WELL HELLO WERE BILL) 

As strings are evaluated from the inside out and from left 
to right, procedures can be nested within other procedures, 
in this case the Activator must be entered after the name 
(BILL in this case), to signify the end of the "is" 
function. Wis value "BILL", then replaces the %is/ in the 
procedure and is output by the second "os". ^ 

idt,LOOP,l%os. 

WIS PRJCEOURE LOOPS/%LOOP///- 
UXX)P/=| 

WIS PROCEDURE LOOPS 

WIS PHDCEDURt IXOPS i 

ililS PROCEDURE LOOPS ' 

WI6 PWXTED 
<sce-os>) 

To make a procedure lo^, it must fetch itself. the 
looping procedure has partitions in it, they will be plugged 
during the fetching process. In such cases if no plugs are 
specified, null strings will be used. In this exaople the 
loop was broken from the keyboard by hitting the "rubout" or 
"del" key; the <sce-os> message means "special condition 
encountered" during the execution of "os". 

%dt,F,Uii,*,l,l,‘ 

I imu, * , 4F, %su, • , 1///////- 

%pt,F,V- 

%F,1/»|1) 

%F,3/=(6) 

IF,5/-|120) 

A sltort recursive procedure may find the factorial of any 
ntuiber. Wis procedure testa the entered number, plugging 
the partitions, to see if it is a 1; if not, the factorial 
of the entered number is that nunber multiplied by the 
factorial of that number minus 1, which is computed by 
fetching F. Sometimes it is desired to organize the 
procedures in several lines, or use tabs to indent the 
lines; these formatting characters (used only for esthetic 
reasons) arc not really part of the executable matter, and 
would clutter up the scanning process. Such cluttei* is 
avoided by preceding characters which have oiily an aesthetic , 
meaning with the or "grave" accent mark. 


